home *** CD-ROM | disk | FTP | other *** search
/ How Many Bugs in a Box / How Many Bugs in a Box.cdr / bugs / act6a / 00190.ls < prev    next >
Encoding:
Text File  |  1995-03-28  |  1.2 KB  |  37 lines
  1. on exitFrame
  2.   global partlist, TRIAL, eyerange, bugeyesx, bugeyesy, game6level
  3.   puppetSprite(19, 1)
  4.   set bugeyesx to the locH of sprite 19
  5.   set bugeyesy to the locV of sprite 19
  6.   set eyerange to 35
  7.   set TRIAL to 0
  8.   puppetSprite(3, 1)
  9.   puppetSprite(4, 1)
  10.   set partlist to [:]
  11.   addProp(partlist, 10, random(6))
  12.   addProp(partlist, 9, random(9))
  13.   addProp(partlist, 8, random(10))
  14.   addProp(partlist, 7, random(9))
  15.   addProp(partlist, 6, random(8))
  16.   addProp(partlist, 5, random(7))
  17.   if game6level = 1 then
  18.     set partlist to (partlist + 1) / 2
  19.   end if
  20.   repeat with xxx = 1 to count(partlist)
  21.     if getPropAt(partlist, xxx) > 0 then
  22.       puppetSprite(getPropAt(partlist, xxx), 1)
  23.       set stemp to the name of cast the castNum of sprite getPropAt(partlist, xxx)
  24.       set ntemp to the number of chars in stemp
  25.       if char ntemp - 1 of stemp = "." then
  26.         set ntemp to ntemp - 1
  27.       else
  28.         set ntemp to ntemp - 2
  29.       end if
  30.       set stemp to char 1 to ntemp of stemp
  31.       set stemp to stemp & string(getAt(partlist, xxx))
  32.       set the castNum of sprite getPropAt(partlist, xxx) to the number of cast stemp
  33.     end if
  34.   end repeat
  35.   updateStage()
  36. end
  37.